inherited F_Medida: TF_Medida
  Caption = 'Cadastro de Medias'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgDados: TPageControl
    inherited tsCons: TTabSheet
      inherited pnConsulta: TPanel
        inherited dbCons: TDBGrid
          Columns = <
            item
              Expanded = False
              FieldName = 'UNI_COD'
              Title.Caption = 'C'#243'digo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UNI_DES'
              Title.Caption = 'Descri'#231#227'o'
              Width = 219
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UNI_ABR'
              Title.Caption = 'Sigla'
              Width = 82
              Visible = True
            end>
        end
      end
      inherited Panel2: TPanel
        inherited EditCons: TEdit
          OnKeyPress = EditConsKeyPress
        end
      end
    end
    inherited tsDados: TTabSheet
      inherited pngBotton: TPanel
        inherited btnExcluir: TBitBtn
          OnClick = btnExcluirClick
        end
      end
      inherited Panel3: TPanel
        object Label1: TLabel
          Left = 24
          Top = 16
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object Label2: TLabel
          Left = 24
          Top = 64
          Width = 48
          Height = 13
          Caption = 'Descri'#231#227'o'
        end
        object Label3: TLabel
          Left = 88
          Top = 16
          Width = 23
          Height = 13
          Caption = 'Sigla'
        end
        object EditCod: TEdit
          Left = 24
          Top = 32
          Width = 57
          Height = 21
          Color = clBtnFace
          Enabled = False
          ReadOnly = True
          TabOrder = 2
        end
        object EditDes: TEdit
          Left = 24
          Top = 80
          Width = 121
          Height = 21
          CharCase = ecUpperCase
          TabOrder = 1
        end
        object EditSigla: TEdit
          Left = 88
          Top = 32
          Width = 57
          Height = 21
          CharCase = ecUpperCase
          TabOrder = 0
        end
      end
    end
  end
  inherited QryCons: TMDOQuery
    SQL.Strings = (
      'select UNI_COD, UNI_DES, UNI_ABR from UNIDADE')
  end
end
